<?php
/**
 * 模板类 - 使用 Discuz 模板引擎解析
 *
 * @package classes
 */

class Template
{
    var $subtemplates = array();
    var $csscurmodules = '';
    var $replacecode = array('search' => array(), 'replace' => array());
    var $blocks = array();
    var $language = array();
    var $file = '';

    function parse_template($tplfile, $templateid, $tpldir, $file, $cachefile) {
        $basefile = basename($tplfile, '.html');
        $file == 'common/header' && defined('CURMODULE') && CURMODULE && $file = 'common/header_'.CURMODULE;
        $this->file = $file;

        if($fp = @fopen($tplfile, 'r')) {
            $template = @fread($fp, filesize($tplfile));
            fclose($fp);
        } elseif($fp = @fopen($filename = substr($tplfile, 0, -4).'.php', 'r')) {
            $template = $this->getphptemplate(@fread($fp, filesize($filename)));
            fclose($fp);
        } else {
            $tpl = $tpldir.'/'.$file.'.html';
            $tplfile = $tplfile != $tpl ? $tpl.', '.$tplfile : $tplfile;
            $this->error('template_notfound', $tplfile);
        }

        $var_regexp = "((\\\$[a-zA-Z_\x7f-\xff][a-zA-Z0-9_\x7f-\xff]*(\-\>)?[a-zA-Z0-9_\x7f-\xff]*)(\[[a-zA-Z0-9_\-\.\"\'\[\]\$\x7f-\xff]+\])*)";
        $const_regexp = "([a-zA-Z_\x7f-\xff][a-zA-Z0-9_\x7f-\xff]*)";

        $headerexists = preg_match("/{(sub)?template\s+[\w:\/]+?header\}/", $template);
        $this->subtemplates = array();
        for($i = 1; $i <= 3; $i++) {
            if(strexists($template, '{subtemplate')) {
                $template = @preg_replace("/[\n\r\t]*(\<\!\-\-)?\{subtemplate\s+([a-z0-9_:\/]+)\}(\-\-\>)?[\n\r\t]*/ies", "\$this->loadsubtemplate('\\2')", $template);
            }
        }

        $template = @preg_replace("/([\n\r]+)\t+/s", "\\1", $template);
        $template = @preg_replace("/\<\!\-\-\{(.+?)\}\-\-\>/s", "{\\1}", $template);
        //$template = @preg_replace("/\{lang\s+(.+?)\}/ies", "\$this->languagevar('\\1')", $template);
        $template = @preg_replace("/[\n\r\t]*\{block\/(\d+?)\}[\n\r\t]*/ie", "\$this->blocktags('\\1')", $template);
        $template = @preg_replace("/[\n\r\t]*\{blockdata\/(\d+?)\}[\n\r\t]*/ie", "\$this->blockdatatags('\\1')", $template);
        $template = @preg_replace("/[\n\r\t]*\{ad\/(.+?)\}[\n\r\t]*/ie", "\$this->adtags('\\1')", $template);
        $template = @preg_replace("/[\n\r\t]*\{ad\s+([a-zA-Z0-9_\[\]]+)\/(.+?)\}[\n\r\t]*/ie", "\$this->adtags('\\2', '\\1')", $template);
        $template = @preg_replace("/[\n\r\t]*\{date\((.+?)\)\}[\n\r\t]*/ie", "\$this->datetags('\\1')", $template);
        $template = @preg_replace("/[\n\r\t]*\{avatar\((.+?)\)\}[\n\r\t]*/ie", "\$this->avatartags('\\1')", $template);
        $template = @preg_replace("/[\n\r\t]*\{eval\}\s*(\<\!\-\-)*(.+?)(\-\-\>)*\s*\{\/eval\}[\n\r\t]*/ies", "\$this->evaltags('\\2')", $template);
        $template = @preg_replace("/[\n\r\t]*\{eval\s+(.+?)\s*\}[\n\r\t]*/ies", "\$this->evaltags('\\1')", $template);
        $template = @preg_replace("/[\n\r\t]*\{csstemplate\}[\n\r\t]*/ies", "\$this->loadcsstemplate()", $template);
        $template = str_replace("{LF}", "<?=\"\\n\"?>", $template);
        $template = @preg_replace("/\{(\\\$[a-zA-Z0-9_\-\>\[\]\'\"\$\.\x7f-\xff]+)\}/s", "<?=\\1?>", $template);
        $template = @preg_replace("/\{hook\/(\w+?)(\s+(.+?))?\}/ie", "\$this->hooktags('\\1', '\\3')", $template);
        $template = @preg_replace("/$var_regexp/es", "template::addquote('<?=\\1?>')", $template);
        $template = @preg_replace("/\<\?\=\<\?\=$var_regexp\?\>\?\>/es", "\$this->addquote('<?=\\1?>')", $template);

        $headeradd = $headerexists ? "hookscriptoutput('$basefile');" : '';
        if(!empty($this->subtemplates)) {
            $headeradd .= "\n0\n";
            foreach($this->subtemplates as $fname) {
                $headeradd .= "|| checktplrefresh('$tplfile', '$fname', ".time().", '$templateid', '$cachefile', '$tpldir', '$file')\n";
            }
            $headeradd .= ';';
        }

        if(!empty($this->blocks)) {
            $headeradd .= "\n";
            $headeradd .= "block_get('".implode(',', $this->blocks)."');";
        }

        $template = "<? if(!defined('FRAMEWORK_PATH')) exit('Access Denied'); {$headeradd}?>\n$template";

        $template = @preg_replace("/[\n\r\t]*\{template\s+([a-z0-9_:\/]+)\}[\n\r\t]*/ies", "\$this->stripvtags('<? include template(\'\\1\'); ?>')", $template);
        $template = @preg_replace("/[\n\r\t]*\{template\s+(.+?)\}[\n\r\t]*/ies", "\$this->stripvtags('<? include template(\'\\1\'); ?>')", $template);

        $template = @preg_replace("/[\n\r\t]*\{echo\s+(.+?)\}[\n\r\t]*/ies", "\$this->stripvtags('<? echo \\1; ?>')", $template);

        $template = @preg_replace("/([\n\r\t]*)\{if\s+(.+?)\}([\n\r\t]*)/ies", "\$this->stripvtags('\\1<? if(\\2) { ?>\\3')", $template);
        $template = @preg_replace("/([\n\r\t]*)\{elseif\s+(.+?)\}([\n\r\t]*)/ies", "\$this->stripvtags('\\1<? } elseif(\\2) { ?>\\3')", $template);
        $template = @preg_replace("/\{else\}/i", "<? } else { ?>", $template);
        $template = @preg_replace("/\{\/if\}/i", "<? } ?>", $template);

        $template = @preg_replace("/[\n\r\t]*\{loop\s+(\S+)\s+(\S+)\}[\n\r\t]*/ies", "\$this->stripvtags('<? if(is_array(\\1)) foreach(\\1 as \\2) { ?>')", $template);
        $template = @preg_replace("/[\n\r\t]*\{loop\s+(\S+)\s+(\S+)\s+(\S+)\}[\n\r\t]*/ies", "\$this->stripvtags('<? if(is_array(\\1)) foreach(\\1 as \\2 => \\3) { ?>')", $template);
        $template = @preg_replace("/\{\/loop\}/i", "<? } ?>", $template);

        $template = @preg_replace("/\{$const_regexp\}/s", "<?=\\1?>", $template);
        if(!empty($this->replacecode)) {
            $template = str_replace($this->replacecode['search'], $this->replacecode['replace'], $template);
        }
        $template = @preg_replace("/ \?\>[\n\r]*\<\? /s", " ", $template);

        if(!@$fp = fopen( $cachefile, 'w')) {
            $this->error('directory_notfound', dirname( $cachefile));
        }

        $template = @preg_replace("/\"(http)?[\w\.\/:]+\?[^\"]+?&[^\"]+?\"/e", "\$this->transamp('\\0')", $template);
        $template = @preg_replace("/\<script[^\>]*?src=\"(.+?)\"(.*?)\>\s*\<\/script\>/ies", "\$this->stripscriptamp('\\1', '\\2')", $template);
        $template = @preg_replace("/[\n\r\t]*\{block\s+([a-zA-Z0-9_\[\]]+)\}(.+?)\{\/block\}/ies", "\$this->stripblock('\\1', '\\2')", $template);
        $template = @preg_replace("/\<\?(\s{1})/is", "<?php\\1", $template);
        $template = @preg_replace("/\<\?\=(.+?)\?\>/is", "<?php echo \\1;?>", $template);

        flock($fp, 2);
        fwrite($fp, $template);
        fclose($fp);
    }

    function blocktags($parameter) {
        $bid = intval(trim($parameter));
        $this->blocks[] = $bid;
        $i = count($this->replacecode['search']);
        $this->replacecode['search'][$i] = $search = "<!--BLOCK_TAG_$i-->";
        $this->replacecode['replace'][$i] = "<?php block_display('$bid');?>";
        return $search;
    }

    function blockdatatags($parameter) {
        $bid = intval(trim($parameter));
        $this->blocks[] = $bid;
        $i = count($this->replacecode['search']);
        $this->replacecode['search'][$i] = $search = "<!--BLOCKDATA_TAG_$i-->";
        $this->replacecode['replace'][$i] = "";
        return $search;
    }

    function adtags($parameter, $varname = '') {
        $parameter = stripslashes($parameter);
        $i = count($this->replacecode['search']);
        $this->replacecode['search'][$i] = $search = "<!--AD_TAG_$i-->";
        $this->replacecode['replace'][$i] = "<?php ".(!$varname ? 'echo ' : '$'.$varname.'=')."adshow(\"$parameter\");?>";
        return $search;
    }

    function datetags($parameter) {
        $parameter = stripslashes($parameter);
        $i = count($this->replacecode['search']);
        $this->replacecode['search'][$i] = $search = "<!--DATE_TAG_$i-->";
        $this->replacecode['replace'][$i] = "<?php echo dgmdate($parameter);?>";
        return $search;
    }

    function avatartags($parameter) {
        $parameter = stripslashes($parameter);
        $i = count($this->replacecode['search']);
        $this->replacecode['search'][$i] = $search = "<!--AVATAR_TAG_$i-->";
        $this->replacecode['replace'][$i] = "<?php echo avatar($parameter);?>";
        return $search;
    }

    function evaltags($php) {
        $php = str_replace('\"', '"', $php);
        $i = count($this->replacecode['search']);
        $this->replacecode['search'][$i] = $search = "<!--EVAL_TAG_$i-->";
        $this->replacecode['replace'][$i] = "<? $php?>";
        return $search;
    }

    function hooktags($hookid, $key = '') {
        global $_G;
        $i = count($this->replacecode['search']);
        $this->replacecode['search'][$i] = $search = "<!--HOOK_TAG_$i-->";
        $dev = '';
        if(isset($_G['config']['plugindeveloper']) && $_G['config']['plugindeveloper'] == 2) {
            $dev = "echo '<hook>[".($key ? 'array' : 'string')." $hookid".($key ? '/\'.'.$key.'.\'' : '')."]</hook>';";
        }
        $key = $key !== '' ? "[$key]" : '';
        $this->replacecode['replace'][$i] = "<?php {$dev}if(!empty(\$_G['setting']['pluginhooks']['$hookid']$key)) echo \$_G['setting']['pluginhooks']['$hookid']$key;?>";
        return $search;
    }

    function stripphpcode($type, $code) {
        $this->phpcode[$type][] = $code;
        return '{phpcode:'.$type.'/'.(count($this->phpcode[$type]) - 1).'}';
    }

    function loadsubtemplate($file) {
        $tplfile = template($file, 0, '', 1);
        $filename =  $tplfile;
        if(($content = @implode('', file($filename))) || ($content = $this->getphptemplate(@implode('', file(substr($filename, 0, -4).'.php'))))) {
            $this->subtemplates[] = $tplfile;
            return $content;
        } else {
            return '<!-- '.$file.' -->';
        }
    }

    function getphptemplate($content) {
        $pos = strpos($content, "\n");
        return $pos !== false ? substr($content, $pos + 1) : $content;
    }

    function loadcsstemplate() {
        global $_G;
        $scripts = array(STYLEID.'_common');
        $content = $this->csscurmodules = '';
        $content = @implode('', file( './data/cache/style_'.STYLEID.'_module.css'));
        $content = @preg_replace("/\[(.+?)\](.*?)\[end\]/ies", "\$this->cssvtags('\\1','\\2')", $content);
        if($this->csscurmodules) {
            $this->csscurmodules = @preg_replace(array('/\s*([,;:\{\}])\s*/', '/[\t\n\r]/', '/\/\*.+?\*\//'), array('\\1', '',''), $this->csscurmodules);
            if(@$fp = fopen('./data/cache/style_'.STYLEID.'_'.$_G['basescript'].'_'.CURMODULE.'.css', 'w')) {
                fwrite($fp, $this->csscurmodules);
                fclose($fp);
            } else {
                exit('Can not write to cache files, please check directory ./data/ and ./data/cache/ .');
            }
            $scripts[] = STYLEID.'_'.$_G['basescript'].'_'.CURMODULE;
        }
        $scriptcss = '';
        foreach($scripts as $css) {
            $scriptcss .= '<link rel="stylesheet" type="text/css" href="'.$_G['setting']['csspath'].$css.'.css?{VERHASH}" />';
        }
        $scriptcss .= '{if $_G[uid] && isset($_G[cookie][extstyle]) && strpos($_G[cookie][extstyle], TPLDIR) !== false}<link rel="stylesheet" id="css_extstyle" type="text/css" href="$_G[cookie][extstyle]/style.css" />{elseif $_G[style][defaultextstyle]}<link rel="stylesheet" id="css_extstyle" type="text/css" href="$_G[style][defaultextstyle]/style.css" />{/if}';
        return $scriptcss;
    }

    function cssvtags($param, $content) {
        global $_G;
        $modules = explode(',', $param);
        foreach($modules as $module) {
            $module .= '::'; //fix notice
            list($b, $m) = explode('::', $module);
            if($b && $b == $_G['basescript'] && (!$m || $m == CURMODULE)) {
                $this->csscurmodules .= $content;
                return;
            }
        }
        return;
    }

    function transamp($str) {
        $str = str_replace('&', '&amp;', $str);
        $str = str_replace('&amp;amp;', '&amp;', $str);
        $str = str_replace('\"', '"', $str);
        return $str;
    }

    function addquote($var) {
        return str_replace("\\\"", "\"", @preg_replace("/\[([a-zA-Z0-9_\-\.\x7f-\xff]+)\]/s", "['\\1']", $var));
    }


    function stripvtags($expr, $statement = '') {
        $expr = str_replace("\\\"", "\"", @preg_replace("/\<\?\=(\\\$.+?)\?\>/s", "\\1", $expr));
        $statement = str_replace("\\\"", "\"", $statement);
        return $expr.$statement;
    }

    function stripscriptamp($s, $extra) {
        $extra = str_replace('\\"', '"', $extra);
        $s = str_replace('&amp;', '&', $s);
        return "<script src=\"$s\" type=\"text/javascript\"$extra></script>";
    }

    function stripblock($var, $s) {
        $s = str_replace('\\"', '"', $s);
        $s = @preg_replace("/<\?=\\\$(.+?)\?>/", "{\$\\1}", $s);
        preg_match_all("/<\?=(.+?)\?>/e", $s, $constary);
        $constadd = '';
        $constary[1] = array_unique($constary[1]);
        foreach($constary[1] as $const) {
            $constadd .= '$__'.$const.' = '.$const.';';
        }
        $s = @preg_replace("/<\?=(.+?)\?>/", "{\$__\\1}", $s);
        $s = str_replace('?>', "\n\$$var .= <<<EOF\n", $s);
        $s = str_replace('<?', "\nEOF;\n", $s);
        $s = str_replace("\nphp ", "\n", $s);
        return "<?\n$constadd\$$var = <<<EOF\n".$s."\nEOF;\n?>";
    }

    function error($message, $tplname) {
        echo '<font color="red">' . ($message . $tplname) . "</font>";
    }

}